print "hello i am perl";
print  "that coutts to ten\n";
for($i = 1; $i<=10; $i++)
{
print "$i\n";
}
print "\n thanks for running";
